WWW Studio 2004/WWW Studio.iso/Programy/Demo/angielskidemo_setup.exe/#setuppath#/5.dxr/00042_kolor.ls

Text File | 2004-02-01 | 4.3 KB | 190 lines

global gtlo, kolor_Pactions, kolor_activecolor, gv_currentnr, gv_shapes, gv_litery, gv_tlumaczenie

on kolor_begin
  global gCurrentBMPCoords, gcurrenttlo
  gCurrentBMPCoords = "BMPCoords"
  show(21, 27)
  setfromcoords(52 - gfang_checknagroda(#kolor), 84)
  dialog_drukowanie(#init)
  gcurrenttlo = "music_menu.wav"
  puppetTloOFF()
end

on kolor_firstenter
  SetVisibility(0, 120)
  kolorowanka_set(gv_currentnr)
  if not gf_checkfirstenter() then
    gf_setfirstenter()
    kolor_text("5_01.WAV", 1)
  end if
end

on kolor_ef
  sequenceaction()
  gf_tlo()
end

on kolor_end
end

on kolor_PFspr spnr
  case spnr of
    41, 42, 43, 44, 44, 45, 46:
      setfromcoords(((spnr - 40) * 3) - 1, spnr)
    81, 82:
      setfromcoords(spnr - 40 + 2, spnr)
    84:
      setfromcoords(53, 84)
  end case
end

on kolor_Pspr spnr
  case spnr of
    41, 42, 43, 44, 44, 45, 46:
      L = [41: "5_18P.WAV", 42: "5_17P.WAV", 43: "kropla_p.WAV", 44: "5_16P.WAV", 45: "10_05P.WAV", 46: "5_19P.WAV"]
      snd = getaProp(L, spnr)
      if not voidp(snd) then
        Paction_sound(snd)
      end if
    51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64:
      L = [2, 3, 5, 6, 14, 4, 8, 7, 12, 10, 15, 13, 9, 11]
      snd = "5_" & cvtint2str(getAt(L, spnr - 50), 2)
      if gv_tlumaczenie then
        snd = snd & "t"
      end if
      Paction_sound(snd & "p.wav")
    81:
      Paction_sound("10_02p.wav")
      FX("10_0201p.wav")
    82:
      if gv_tlumaczenie then
        Paction_sound("10_1003w.wav")
      else
        Paction_sound("10_03p.wav")
      end if
    84:
      if gfang_checknagroda(#kolor) then
        Paction_sound("10_1001P.WAV")
      else
        Paction_sound("10_10P.WAV")
      end if
  end case
end

on kolor_Dspr spnr
  case spnr of
    41, 42, 43, 44, 44, 45, 46:
      setfromcoords((spnr - 40) * 3, spnr)
    81, 82:
      setfromcoords(spnr - 40 + 4, spnr)
    84:
      setfromcoords(54, 84)
  end case
end

on kolor_Lspr spnr
  case spnr of
    41, 42, 43, 44, 44, 45, 46:
      setfromcoords(((spnr - 40) * 3) - 2, spnr)
      Laction()
    51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64:
      Laction()
    81, 82:
      setfromcoords(spnr - 40, spnr)
      Laction()
      puppetFXOFF()
    84:
      setfromcoords(52 - gfang_checknagroda(#kolor), 84)
      Laction()
  end case
end

on kolor_Wspr spnr
  global kolorzadanie_currentnr
  Laction()
  case spnr of
    41:
      kolor_set(gv_currentnr - 1)
      FX("5_1801P.WAV")
    42:
      kolor_set(gv_currentnr + 1)
      FX("5_1801P.WAV")
    43:
      kolorowanka_clear()
    44:
      kolorowanka_undo()
      FX("5_16P_GUMKA.WAV")
    45:
      kolorowanka_zapamietajstan(gv_currentnr)
      dialog_drukowanie(#show, "10_05P.WAV")
    46:
      kolor_text("5_01w.WAV", 1)
    51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64:
      kolor_setcolor(spnr - 50, 1)
    81:
      gf_actiongomovie("2.dir")
    82:
      gv_tlumaczenie = 1 - gv_tlumaczenie
    84:
      kolorowanka_zapamietajstan(gv_currentnr)
      if not inteligentrandom_isinit(#kolorowankazadanie) then
        inteligentrandom_init([1, 2, 3], #kolorowankazadanie)
      end if
      kolorzadanie_currentnr = inteligentrandom(#kolorowankazadanie)
      gf_actiongo("kolorzadanie" & kolorzadanie_currentnr, #none)
    144:
      go("drukowanie")
  end case
end

on kolor_setcolor nr, _FX
  global gv_colortable, kolorowanka_sprite
  if not voidp(nr) then
    kolor_activecolor = nr
  end if
  setbrush(kolorowanka_sprite, getAt(gv_colortable, kolor_activecolor))
  if _FX then
    FX("5_1501P.WAV")
  end if
  updateStage()
end

on kolor_set nr
  if not voidp(nr) then
    kolorowanka_zapamietajstan(gv_currentnr)
    gv_currentnr = nr
    n = the number of lines in field "kolorowanki.cfg"
    if gv_currentnr <= 0 then
      gv_currentnr = n
    end if
    if gv_currentnr > n then
      gv_currentnr = 1
    end if
  end if
  kolorowanka_set(gv_currentnr)
end

on kolor_text WAV, block, extconfirm
  if voidp(extconfirm) then
    extconfirm = "kolor_textcompl(" & block & ")"
  end if
  if block then
    gf_setconfirm(extconfirm)
  end if
  symb = #text
  sequenceaction_clear(symb)
  sequenceaction_addsound(WAV, symb)
  sequenceaction_addaction(extconfirm, VOID, symb)
  sequenceaction()
end

on kolor_textcompl block
  symb = #text
  if block then
    gf_clearconfirm(1)
  end if
  sequenceaction_clear(symb)
  puppetSoundOFF()
  updateStage()
end